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MODUL 

FILES (IDENT = ‘V04-000") = 
BEGIN 

' 


Sssss 


tor) ty ted 


RRR RRA EAAAAAAEAEAERAAREEEA AEA EAEERA EAE AE AAA AEAEAAAAAAAAAARATEREAEEEETE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS A gt UNDER A LICENSE AND MAY cP USED AND corre 
ie 0 IN ACCORDANCE WITH T R CH 


COoOooooooooo 


Ss 


* 
z 
= 
«< 
z 
o 
zx 
wn 
Cc 
_ 
os 
pad 
2 
wn 
m 
> 
Zz 
o 
= 
ran 
> 
x 
m 


; NCL 0 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
* 
® 
® 
® 
® 
® 
® 
® 
® 
ie TRANSFERRED. : 
® 
® 
* 
® 
® 
wm 
® 
* 
® 
® 


ooo 
ooo 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= Crponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


ofoleolololq) 


SRR RRER RRA ARAAARERAAEARAAAAREEEAAREAAEARAAAAAAAARAAAATAAAARARERAERERE AEE 


'e¢ 7 
} FACILITY: ACC, Account file dumper 
i ABSTRACT: 


This module contains the file manipulation code for 
the accounting utilities. 


' 
' 
' 
' 
: 
ENVIRONMENT : 

VAX/VMS operating system. unprivileged user mode, 

AUTHOR: Greg Robert and Steve Forgey, January 1982 

i Modified by: 

v03-003 DAS0003 David Solomon 28-F eb-1984 
i 

. 

' 

' 

' 

] 

' 

' 

' 

! 

i 


4 goeg Remove related NAM block ee INPUT_NAM (in conjuction with 
47 004 edit V03-016 to ACC.B32, which causes LIBSFILE_SCAN to do the 
48 0068 sticky filespec parsing). 

50 0050 v03-002 gasoey? David Solomon 12-Jan-1984 

2) it Get ACCDEF.REQ from SRC$, not MSRCS$. 

2g 0088 v03-001 SPFO105 Steve Forgey 27-Mar-1982 

2 once Set up a related name block for input files. 

56 0056 ¥02-002 re} Steve Forgey Feb-06-1982 

57 0057 f /BINARY is not present use *’.LIS'* as output file default, 


Be Se Se Be Se Se Ge Se Se Se Se Se Fe Sse Se Ge Fe Se Ge Ge Ge Ge Ge FH Se Se Ge Ge Se oe Se Se Se Se Ge Ss Se Gs Se Se Se Se Ss Se Se Sse Se Se Se Se Se Fe Se Sees tee 
PRES FAWN aponononononononony 2 
DONAWUE WR 0 OD NOUS WN HO ODNAU EWN HONDA UEWWR OO ONOUS WN 
oO SoOooooooooooooo 
ooo SsSoooooe Ss 
ne AWA POPONINPONPONNONYUDY 2 SS OO Os 
We —"OOWNAUES WN" OODONAUS WN OOO 
kt at kt a at a ae at a tt 9 Sh Hh PS PP HP HD YH HY MM BS I SY FY SS SB SS SH HS Ss OS SS 2 OO 
o” * 


r 


13 
1$-Sep-19 . . $ :3 ya 


VAX-11 Bliss-32 V Page 2 
14-Sep-1984 :0 DISKSVMSMASTER: chee’ she FILES.832;1 (1) 


otherwise use *’.DAT'’. 


! 
' 
: v02-001 SPFOO71 Steve Fergey Jan-23-1982 

: Change input file name defaults and improve 1/0 performance. 
’ 


: INCLUDE FILES ; 


| eomowowoeeeooceeeo-scoecccecececa Serene re2 eons ec etm en en enzn zene eee nce masez ee ete eee ez ms z ee + 


SSSUELLEL 
Segeporereous 


a ed ed od ed od ed 


REQUIRE "SRCS:ACCDEF'; ' Common ACC definitions 


~ 
— 
s 
a 


1 
FILES 13.52 -1984 23:40: VAX-11 Bliss-32 V4.0-74 Pa 3 
-000 127808=1 382 $7 :93:33 DISKSVMSMASTER: CACC.SRCJFILES.832;1 = (2) 
4 73 91 0 1 ' Se ee we ee em ee eee ee em we en eee me sae aesee = sere esee ese eer ere eer eer ene a + 
i 8 312 1 | 
, 318 1 i TABLE OF CONTENTS 
D4 7 Bate 1 | mmmmmemoe oem eee eee eee eee oeeosescoeecoowcocccococe eeeoee Seeeeeneenenonanonaneao sae mam cme 
oo 915 1 
+ 79 091 1 ' Se eeeeeeneneneneananeaon «22 wee wn wn wee www wmemn nmr ewe wwe enw eer eee ew wren m= 38 Se ee ween wenn ewe owe cece + 
; 80 0317 1! : 
; 8) aig 1! GENERAL STORAGE DEFINITIONS : 
; § 091 7 3 . 
3 g 09 0 1 ' eecaneareecmze eo e eet ene ene ewes em ene ee ee ee Sm ERO Ree DET EBD Deseo Marre etean ance wen eas aa 
; 4 0921 1 
; 5 09 § 1- 
; | 68 09 1 OWN 
; | «687 0924 1 
; & 0925 1 DATEXT: INITIAL (°.DAT'), ! ** DAT’ extension 
3 34 +4 $ : LISEXT: INITIAL (*.LIS"), ! "LIS extension 
: 91 0928 1 INPUT_NAM RESULT: ! Resultant input name 
; 4 o . : VECTOR CNAM$C_MAXRSS,BYTE], ! allocate storage 
; 94 0931 1 INPUT_NAM_EXPANDED: ' Expanded input name 
3 +4 0338 : VECTOR CNAMSC_MAXRSS,BYTE], ! allocate storage 
a 0934 1 RELATED_NAM_RESULT: ' Resultant related name 
3 + 34 H : VECTOR CNAMSC_MAXRSS,BYTE), ! allocate storage 
: 100 0937 1 OUTPUT_NAM_RESULT: ! Resultant output name 
; 4 ahs : VECTOR CNAMSC_MAXRSS,BYTE], ! allocate storage 
; 108 0940 1 OUTPUT_NAM_ EXPANDED: ' Expanded output name 
3 i? bag ! VECTOR CNAMSC_MAXRSS,BYTE], ! allocate storage 
: 106 0943 1 REJECTED_NAM_RESULT: ' Resultant rejected name 
; +44 pote ! VECTOR CNAMSC_MAXRSS BYTE), ! allocate storage 
: 109 0946 1 REJECTED _NAM_ EXPANDED: ! Expanded rejected name 
3 139 epee : VECTOR CNAMSC_MAXRSS BYTE); ! allocate storage 
; 112 0949 1 GLOBAL 
3; (11 0950 1 
3 (114 P 0951 1 RELATED_NAM: SNAM ( ! Related NAM block ' 
3 («115 P O32¢ 1 RSA = RELATED_NAM RESULT, ! file name address after opening 
; 116 oa} : RSS = NAMSC_MAXRSS), ! «(buffer size) 
: 118 P0955 1 INPUT_NAM: SNAM( ' Input NAM block 
3 6119 P 9926 1 ESA = INPUT_NAM_EXPANDED, ! file name address after parsing 
s 120 P 0957 1 ESS = NAMSC_MAXRSS ! (buffer size) 
; 121 P0958 1 RSA = INPUT-NAM_ RESULT, i file name address after opening 
3 : ; 3494 ! RSS = NAMSC“MAXRSS), ! (buffer size) 
; 154 e 0961 1 OUTPUT_NAM ' Output NAM block 
; 125 P 366 1 RLF = INPUT_NAM, ; “st further defaults from input 
9 $ P 0965 1 ESA = OUTPUT_NAM_EXPANDED, ! file name address after parsing 
i % P 0964 1 ESS = NAMSC_MAXRSS ! <-(buffer size) 
: 128 P 0965 1 RSA = OUTPUT_NAM RESULT, | file name address after open 
3 129 0966 1 RSS = NAMSC_MAXRSS), ! (buffer size) 


a 


MWeoo 


: 1 , 4 

: 131 P 968 1 REJECTED_NAM:  SNAM( 

> 1 : P 36 1 RLF = INPUT_NAM, 

‘> < P 09 : 1 ESA = REJECTED NAM_EXPANDED, 
4 P0971 1 ESS = NAMSC_MARRSS, 
; 135 P 376 1 RSA = REJECTED NAM RESULT, 
3 ! 92 ! RSS = NAMSC_MARRSS), 
: 138 0375 1 INPUT_XABFHC:  $XABFHC(), 

; 139 976 1 

: 140 P 0977 1 INPUT_FAB: SF AB( 

> 141 P 0978 1 XAB = INPUT_XABFHC, 
: 148 P0979 1 FOP = (SQ0)> 

: 16 P0980 1 SHR = (PUT,UPI), 

> 146 P0981 1 NAM = INPUT_NAM 

> 145 P 0982 1 DNM = ‘ACCOONTNG.DAT’, 
> 146 0983 1 FAC = GET), 

: 147 0984 1 

148 P 0985 1 INPUT_RAB: SRAB ( 

> 149 P 0986 1 USZ = 512, 

; 150 P 0987 1 MBC = 16, 

> 151 P0988 1 MBF = 

; 138 P0989 1 ROP = (RAH) 

: 15 P0990 1 CTX = MSG$_READERR, 
3 154 0991 1 FAB = INPUT_FAB), 

; 155 099¢ 1 

: 156 P 0993 1 OUTPUT_FAB: $F AB( 

> 157 P0994 1 CTX = MSG$_OPENOUT, 
; 158 P0995 1 FOP = . . 

: 159 0996 1 NAM = ; 

; 160 P0997 1 DNS = 4, 

> 161 0998 1 DNA = DATEXT), 

; 162 0999 1 

: 16 P 1000 1 OUTPUT_RAB: S$RAB( 

> 164 P1001 1 CTX = MSG$_WRITEERR, 
> 165 1008 1 FAB = output_fab), 

> 166 1003 1 

: 167 P 1004 1 REJECTED_FAB: AB ( 

> 168 P1005 1 BNM = '.REJ’ 

: 169 P1006 1 CTX = MSG$_OPENOUT, 
: 170 P1007 1 FOP = (OFP; $00), 

> 171 1008 1 NAM = REJECTED_NAM), 
: 17 1009 1 

: 17 P 1010 1 REJECTED_RAB: S$RAB( 

> 17% P1011 1 TIX = MSG$_WRITEERR, 
> 175 P 1018 1 MBC = 16, 

: 176 P1013 1 MBF = 2, 

: 177 P1014 1 ROP = (WBH) 

: 178 1015 1 FAB = REJECTED_FAB); 


1 
1§-¢ 1984 23:40: VAX-11 Bliss-32_ V4.0-74 
1 mrt 1:83:03 DL SKSUMSMASTER CACC. SRCSFILES.832:1 


3 


Rejected NAM block 

“related file name 

“file name address after parsing 
-(buffer size) 

-file name address after open 
-(buffer size) 


Input FHC XAB block 


Input FAB block 

“address of FHC XAB block 
“sequential operations only. 
“allow un-interlocked, sharing 
“address of NAM block 

-default name 

-open for input 


Input RAB block 
-(buffer size) 
-multi-block count 
-multi-buffer count 
-read-ahead processing 


-error meceape value 
“address of FAB to be CONNECTed 


Output FAB block 

“error message value 

“output file parse, sequential only 
“address of NAM block 

“default extension size 

-default extension address 


Output RAB block 
“specify error message 
“address of FAB bloc 


Rejected FAB block 

“default extension 

-error message value . 
“output file parse, sequential only 
“address of NAM block 


Rejected RAB block 
~spee ity error message 
~plogk count 


-multi-buffer count | 
“write sen ian Br ereen =e 
-address of FAB block 


£33 
FILE 5-Sep-19 3:40: VAX-11 Bliss-32 V4.0-74 P 5 
VOse800 Zr 2ePa IRE TF:88:53 Pata tea Kee shee ues.e32;1 2% «33 


F 
\ 


: : ; } 1$ ! UNDECLARE PARSE _OUTPUT_FILES; i 
. 4 g 1 18 1 GLOBAL ROUTINE PARSE_OUTPUT_FILES = ; 
. | 101 1 : 
a Re i 7 
; ! ; " Functional description 
9 1024 1! This routine is called to process output files. : 
3; 6189 1025 1! If the files are binary (/BINARY or /REJECTED) : 
; 139 19 $ : } RMS is used, else the screen package. i 
: 19¢ 1 § 1 | Input parameters i 
; 19 10 & : 
i i ae Hal 
$ . | rT 
3 138 18 ¢ : Output parameters | 
: 198 1034 1! Any errors encountered are RETURNed immediately. i 
; 199 1035 1! TRUE is returned on a normal exit. : 
3 00 1936 7 3 i 
i oe oe eat 
; 08 1039 2 BEGIN | 
> 205 1041 2 LOCAL 
3 4] Hk desc: vector (2, long); ! Temporary string descriptor 
: 208 — 1044 2 GLOBAL i 
3 10 1046 screen_char: bblock Cscr$k_length]; ! Holds screen characteristics i 
: 211 104 OWN | : 
3 ap 1048 output _desc: bblock Cdsc$k_d_bin ; 
3; et 1049 reset (Cdsc$b_ =5lass = dsc$k_class_d), i 
; 214 1050 rejected_desc: bblock Cdsc$k_ i 
3 21S 1051 preset ([dsc$b_ “Closed = dsc$k_class_d); i 
: 216 1038 i 
: ie 1036 3 | ; 
; 3 1055 2 'PARSE COMMAND LINE OUTPUTS --- 
; 220 1056 ' Parse the /OUTPUT and /REJECTED command switches. Store any output 

; 221 1057 i file names obtained in the FAB for future processing. 

2 ines 

; 3 1966 GET_VALUE ("OUTPUT’, output_desc); 

; 6 106¢ output_fab [fab$b_fns] = .output_desc dsc $w_ Length); 

; 8 ise? output_fab Cfab$l_fna] = .output_desc (Cdsc$a pointer); 

: 229 1065 If PRESENT (BINARY) 

: 231 1969 then ‘BEGIN ; 

3 3 P 1068 perform ($create ( ' Call RMS with 

: P H's 34 fab = output fab, ! address of FAB 

3 ; 1370 err = log_ PTitenene)?: ! error action routine 

: P 1072 perform ($connect ( ' Call RMS with 


i oT ees Pia PRA 


18-Sep-1984 23:40: VAX=11 Bliss-32_V 6 
V2=ee~}38e 14:88:53 Pee hbwaleteacchce sacdeices.ese:1 2% sé 
! 
! 


“address of RAB 


rab = output_rab, 
“error action routine 


err = log_filename)); 


i 
oes g” 


-IDENT \V04-000\ 
-PSECT DATA,NOEXE,2 
; E 00000 DATEXT: ata}, \.DAT\ : 


E 00004 LISEXT: ASCII \.LIS\ : 
00008 INPUT NAM RESULT: 


41 4 
49 4 


| 

| 

-TITLE FILES | 

| 

54 
53 | 


55 
107 “BLKB 
$0108 INPUT NAM EXPANDED: 


; 1073 
; 1074 ‘ 
; 1075 END i 
; 240 1978 i 
; 241 107 else BEG! : 
> 26 1978 haut = fab cfanst dna) = Lisext;! Use "*.LIS"’ extension with /NOBINARY i 
; 24 P 107 perform ( perce 5 i Call RMS parse with : 
3 246 P 1080 = output. fab, ! address o : 
> 245 1081 oe = Log. fiT ngens, = ! error action reye tae : 
: “8 1Os8 output_desc (CdscSw_length output. nam Coens esl : 
> 24 108 output reete dsc$a_ apotnter) = ut_nam Cnam$T_esad; : 
3 $8 Ht SET (1,output_desc); } stablish output stream #1 i 
> 26 1085 SEREEN_ INFO (Screen_char); ! Get characteristics i 
: 250 1988 END; ‘ 
; 251 108 : 
; 2g 1088 ‘ 
; 25 1089 ‘ 
3 2¢ In If GET vA ("REJECTED’, rejected_desc) then! /REJECTED value ‘ 
; 256 109 ejected. fab Cfab$b_fns] = .rejected_desc jtssesa: length); i 
3 gor 109 elected, fab Cfab$l-fnaj = .re = i ress dsc$a_pointerd; : 
: 258 P 1094 pert orm ‘Screate ( ~ ; 
s ay P 1095 fab = rejected_fab, oo V3 vk FAB ‘ 
; re +5 err = log_filenames); ' -error action routine i 
; 26 P 1098 perform ($connect ( ' Call RMS with i 
; 26 P 1099 rab = rejected_rab, : address of RAB i 
; 264 1100 err = log_filename)); ! -error action routine i 
>; 265 1101 END; ‘ 
; 266 1198 ‘ 
3 sor 110 RETURN TRUE; ‘ 
; 268 1104 1 END; ‘ 


tat -BLKB 
0208 RELATED_NAM RESULT 


-BLRB 55 
00307 -BLKB | 
00308 OUTPUT_NAM_ RESULT: 
9407 -BCKB 55 


-BLK 
0408 OUTPUT_NAM EXPANDED: 
.BCKB 


‘00507 “BLK 
00508 REJECTED_NAM_RESULT: 
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02 00768 INPUT_NAM: : 
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FILE 14.32 -1984 23:40: VAX-11 Bliss-32 V4.0-74 P 
yos-000 Fok seats ra tS oS yt SP + he 6) aS 
7AG -BYT ‘ 3 
7A5 -BYT 3 
Ag .BYTE (2) : 
7 ~LONG s 
i LONG a 
7 LONG 3 
7B4 ~LONG 3 
8 788 ~LONG : 
78 LONG é 
0 wo 7¢ LONG C2) s 
0 7C8 OUTPUT_NAM:: 
.BYTE 2 : 
60 709 BYTE 6 ; 
FF Orta .BYTE 1 : 
ose 7¢B -BYTE 0 3 
-ADDRESS OUTPUT_NAM_RESULT : 
100000} O07 BvIee 
$0 0701 BYTE : 
FF 0708 BYTE <1 : 
00 0070 BYTE 0 : 
00000000° 00704 -ADDRESS OUTPUT _NAM_EXPANDED 3 
any a97p¢ “es NPUT_RAM § 
00004 007E «WORD OQ 3 3 
00004 Boor WORD 3 3 
00000000 007F LONG 3 
a 2 
00 00801 ‘BYTE 0 : 
60 90808 BYTE. 0 
00 0804 ‘BYTE 0 : 
00 00805 BYTE 0 3 | 
00% 00806 eBYTE OC2) 5 
00000000 00808 -LONG QO oe 3 
00000000 0080C -LONG 0 —_ 3 
00000000 810 -LONG 0 3 
00000000 00814 LONG 8 a 
00000000 00818 ~ LONG 3 
fo0s0080# 00826 tONe  8c2) ; 
O2 $0838 REJECTED_NAR: : 
60 Oe BYTE $6 3 
FF A -—BYTE -=1 3 
aol 0828 -BYTE 0 : 
0000 0° 08 C -ADDRESS REJECTED_NAM_RESULT ; 
8 38 1 BYTE § 3 
FF ¢ .BYTE -1 * ; 
‘4 -—BYTE 0 : 
00 * 00 .ADDRESS REJECTED_NAM_EXPANDED 3 
000 ° -ADDRESS INPUT_NAM : 
r) C .WORD : 
# 0084 . WORD : 
# 0085 . WORD ; 
00000000 0085 LONG 3 
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0000 
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0000 
0000040 
0000000 
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00000000 
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BYTE 
“LONG 512 


ib (3) 
- LONG 0424498 
wo 


oc — oe oO oO oe 

~ ccow 

oO oo=<~< 

2 2wD-=- 

a  ,oomm 
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ADDRESS INPUT FAB 


oO 


36870976 


0424482 


wo 
«< 
—_ 
m 
OOM COCO" ONMOCOCOCOMO@Ww Oo 


“L 
ADDRESS OUTPUT_NAM 
ADDRESS DATEXT 
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seco smn OUTPUT RABt 


<n" 


-BYT 1 : 

44 BYTE 8 ; 

- LONG : 

«LONG : 
WORD (3) : 
«WORD : 
009 LONG 0424530 é 
«WORD 3 } 
«BYTE : 
-BYTE 3 
. WORD : | 
000 LONG : 
0000000 LONG : 
0000000 LONG : 
0000 -LONG : 
BYTE : 
-BYTE é | 
BYTE $ 
0 -BYTE 3 | 
000000 LONG : 
00000000" “ADDRESS OUTPUT_FAB ; | 


00000009 90908 0 
03 009DC REJECTED “FAB: : 
50 00900 “BYTE 80 : | 
000 494 WOR 9 : 
0000040 009¢ “LONG 536870976 : 
0000 09E4 “LONG : 
9000000 00968 “LONG : 
0000 9EC “LONG : 
000 O9FO WORD 3 
0 O9t¢ “BYTE : | 
O9F BYTE ; 
QO9F10A2 00984 “TONG 10424482 : | 
0 O9F8 BYTE 3 
0 009F9 -BYTE 3 
O9FA “BYTE : 
09FB “BYTE : | 
900 ore “LONG : | 
A “LONG : 
0000000" O0A04 “ADDRESS REJECTED_NAM : | 
000 OA08 "LONG 0 : | 
0 * OOA0C ADDRESS P. AB : | 
A10 BYTE 0 3 
All "BYTE 4 3 
Al2 WORD : 
000000 AlS “LONG : 
Als “WORD : 
AIA “BYTE : 
0 Dale Phas : 
§6090000 OOAz0 tone 


} 
i 
| 
| 
| 
| 


2 13 
15-Sep-19 3: VAX-11 Bliss-32 V 
14-Se Het Ti $7: $9: 33 DISKSVMSMASTER: chee” Orne FILES.632;1 
A24 WORD 
A § -BYT 
A .BYT 
A28 . LONG 
1 AdC REJECTED_RAB:: 
TBY Hh 1 
44 A2D -BYT 8 
A «WORD 
A . LONG 024 
A LONG 
0 A - LONG 
6 hig WORD OC 
009F 100 AG «LONG 10424530 
000 A48 .WORD 
AGA -BYTE 
OA4B -BYTE 
99 0 A4C - WORD 
000 AG .WORD 
aig aia AS - LONG 
000000 OA .LONG 
aeaisaie 0AS8 . LONG 
0000000 O00A5 -LO 
00 O0A -BYT 
8 0A61 BYTE QO 
5 OA6 -BYTE 2 
1 RA BYTE 16 
00000000 00A «LONG 0 
00000000' OOAG8 -ADDRESS REJECTED_FAB 
00000000 O0A6C - LON 0 
A70 SCREEN CHAR: : 20 
00# 00A84 OUTPUT ~DESC: 
-BYT gcs3 
02 O0A87 Byte 
00# OOA8C REJECTED_DESC: 
-BYTE gc33 
02 OOA8F -BYTE 
00A90 -BLKB 


-PSECT CODE .NOWRT,2 


54 41 44 2€ 47 4E 54 GE 55 4F 43 $3 41 Q0000 P.AAA: .ASCII \ACCOUNTNG.DAT\ 
4A 45 52 2€ Bere P.AAB: tt ‘ee 
00 00 54 55 50 54 55 4F 00014 P.AAD: .ASCII \OUTPUT\<0><0> 
44 $9 P.AAC: .LONG 
29009 * 000 -ADDRESS P.AAD 
44 45 54 43 45 4A 4 38 4 P.AAF: .ASCII \REJECTED\ 
sie P.AAE: .LONG 
000000° 000 -ADDRESS P.AAF 


.EXTRN ACC$_INVACCREC Accs TOTAL 
TEXTRN ACCS “MERGE Acts. 

SEXTRN ACCS"TITLE tru 

“EXTRN ADD SYMBOL , A OCATE 


<> | 


Pete Sete 


De Se Se Se Se Be Be Ge Be Ge Fe Se Se Se Se Se Fe Fe Be Fe Se Fe Fe Se Se 
on NO 


oe 


413 
voc=000 HEsleoctgte F:g8E pebcdlwAlsted?: me “skedeives.832;1 9 (53 


1 

XTRN LIBSADD x, L188 

XTRN LIBSCVT Prastvte TIME 
XTRN LIBSDAY =" Fast Fit LE SCAN 
XTRN LIBSICHAR, 18 LOOKUP_KEY 
XTRN LIBS$SUBX ablessys ASCTIM 
XTRN LIBSSY 7; » LIBSSYS FAOL 
XTRN LIBSTPARSE, LOG FILENAME 
EXTRN LOOKUP SYMBOL, MAP_QUALIFIERS 
ae PARSE OUTPUT FILES 

RELEASE TO SORT 
xT RN SCAN_SYMBOLCS, SHOW_RECORD 


TRN SORSEND_ SORT. SORSINIT_SORT 
EXT RN SORSRELEASE_REC 
XTRN SORSRETURN_REC SORSSORT _MERGE 
XTRN STRSAPPEND, STRSCOMPARE 
XTRN STRSDUPL_C : SLEFT 
XTRN STRSPREFIX, STRSREPLACE 
XTRN STRSRI GHT STRIP _NEGATOR 
EXTRN STRIP TRAIL, SUMMARIZE 
-EXTRN SYSSNOMT TIM, TRANSLATE. STATUS 
“EXTRN WRITE_BAR_GRAPH 
XTRN WRITE BINARY. WRITE_ SUMMARY 
EXTRN WRITE” TOTALS SSCREAT VALUE 
XTRN QUALIFIER st Sy SSCREA 
“EXTRN SYSSCONNECT ARSE 
“EXTRN SCRSSET TouTbuT. SSCRESCREEN. INFO 
00FC 00000 ENTRY PARSE OUTPUT -FILES, Save R2.R3,R4,R5,R6,.R7 ; 1018) 
57 000000006 00 9 90008 MOVAB SYSSCONNECT,~ ; | 
36 00000006 00 9€E 000 MOVAB SySSCR TE, ; 
55 000000006 00 9€ 0001 MOVAB CLISGET_VALUE, RS : 
54 000000006 00 9€ 0001 MOVAB LOG : 
33 00000000' f 9 OO01E NOVAB TPUT_DESC, R3 : | 
; BD 0028 PUSHL + 1060. 
BB AF «OF OO02A PUS ; 
65 02 FB 0002D CALLS #2, CLISGET_VALUE ; 
FEF8 C3 63 90 000 0 MOVE § OUTPUT_DESC> OUTPUT FAB+52 + 106 
FEFO C3 04 A’ 00 000 MOVL OUTPUT “DESC+4, OUTPOT_FAB+44 : 106 
19 000000006 060 3 £1 000 BBC QUALIFIERS, 1$ + 106 
4 BD 9004 PUSHL R : 107 
FECA C3 9F 00045 PUSHAB OUTPUT FAB : 
6 9s Fe 8 9 CALLS @# SYSSCREATE 3 
1 E9 0004C BLBC STATUS, 2$ : 
54 BD 004F PUSHL ; 1074 
FF14 C3 9F 00051 PUSHAB QuTPY F 
67 02 FB 0055 CALLS OY SSCONNECT ; 
55 i 2038 BLBS STATUS, 4$ : 
FEF4 F580 C3 9€ 0005C 18 MOVAB LISEXT, OUTPUT_FAB+48 : 107 
. 3 74 po 006s PUSHL R4 : 108 
ooooo000s 00 «= ** G3. Fm 00088 CALS. #3. SYSSPARSE ; 
ee Oe Ea 
04 A3 Fp50.—sé€ i 0007 MOVL  OUTPUTTNAM+12. OUTPUT DESC +4 : 1983 


‘Bin 


3; Routine Size: 


226 bytes, 


7E 
7 
i 
000000006 33 3 
| 
ec A 
000000006 99 1 
36 ; 
000000006 00 1 
50 52 
08 A3 
FF4) CF 
65 9¢ 
21 5 
8C AS 08 A3 
84 AS OC AS 
54 
FF58 C3 
66 96 
OE 5 
54 
AB A3 
67 02 
03 50 
50 01 
Routine Base: CODE + 0034 


14 
15. -Sep-1984 VAX-11 Bliss-32 V4.0-74 
14 ~tep- 1984 73 9: 33 Disk KSVMSMASTER: CACC. SRCJFILES.832;1 

7¢ 007 CLRO -(SP) 
D4 8 CLRL -(SP) 
DD 0008 PUSHL R3 
DD 008% PUSHL #1 
FB 0086 CALLS #5, SCRSSET_OUTPUT 

008D OVL RO, STATUS 
9 9090 LBC — STATUS, 

F 0009 PUSHAB SCREEN CHA 

FB 00096 CALLS ; SCRESCREEN. INFO 
DO 0009D VL RO’ STATUS 
E8 OOOA BLBS STATUS, 4$ 
DD 900A 3$: PUSHL STATUS 
FB OOOA CALLS #1, LIBSSIGNAL 
DO OOOAC MOVL STATUS, RO 
04 OOOAF RET 
9F 000BO 4$ PUSHAB REJECTED_DESC 
9F 00083 PUSHAB P.AA 
FB 90087 CALLS #2, CLISGET_VALUE 
E OOBA BLBC 
0 000B8D MOVB  REJECTED_DESC, REJECTED _FAB+52 
dO 900¢2 MOVL REJECTED-DESC4+4, REJECTED_FAB+44 
DD 900¢ PUSHL R4 
9F 00009 PUSHAB REJECTED FAB 
FB OOOCD CALLS SYSSTREATE 
E9 00000 BLBC SfATUS. 6$ 
DD 00003 PUSHL 
9F 00005 PUSHAB REJECTED RAB 
FB 00008 CALLS He. 1S{SSEONN ECT 
E9 00008 BLBC TUS, 6$ 
DO OOODE 5$: MOVL . 
04 O00E1 4$: RET 


tee 


De Se Se Se Se Ge Ge Se Be Go Ge Be Ge Ge Ge Ge Fe Fe Se Be Be Fe Se Fe Ge Be Se Ge Be Se Se 


1084 


1085 


=e 1$. sep-19 4 $3:69:33 X-11 Bliss-32 V Page ; 


1 
14-Sep-1984 aK SVMER TER: chee. OCRCOFILES. B32;1 (4 
370 1105 1 END 
7 1106 0 ELUDOM 
.EXTRN LI@SSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
$ DATA 2708 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC .ALIGN(2) 
; CODE 27 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
3 cassseas SyEholG wcocencs Pages Processing 
3 File Total Lbeded Percent Mapped Time 
: _$255$DUA28: :ESYSL L1B8)S STARLET 32:1 9775 76 0 581 00:01.0 
> 78255$DUA28:(SYSLIBITPAMAC.L 32; 1 42 0 0 14 00:00.1 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:F ILES/OBJ=OBJ$:FILES MSRC$:F ILES/UPDATE=(ENHS:F ILES) 
; Size: 226 code + 2760 data bytes 
Run Time : 


3 bey teas: 00:54.2 
3 Lines/CPU Min: 3670 

3 ouenee se wigs 46098 

3 nee | Used: 186 pages 
; Compilation Complete 
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